home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).do / SPACE.CHASER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  8KB  |  186 lines
  1. 10  REM *OPENING TITLE
  2. 20  TEXT : HOME : CLEAR 
  3. 25  VTAB 6
  4. 30  FLASH 
  5. 40  PRINT "     ****  ****  ****  ****  ****       ";
  6. 50  PRINT "     *     *  *  *  *  *     *          ";
  7. 60  PRINT "     ****  ****  ****  *     ***        ";
  8. 70  PRINT "        *  *     *  *  *     *          ";
  9. 80  PRINT "     ****  *     *  *  ****  ****       ";
  10. 90  PRINT : PRINT 
  11. 100  PRINT "   ****  *  *  ****  ****  ****  ****   ";
  12. 110  PRINT "   *     *  *  *  *  *     *     *  *   ";
  13. 120  PRINT "   *     *  *  *  *  *     *     *  *   ";
  14. 130  PRINT "   *     ****  ****  ****  ***   ****   ";
  15. 140  PRINT "   *     *  *  *  *     *  *     **     ";
  16. 150  PRINT "   *     *  *  *  *     *  *     * *    ";
  17. 160  PRINT "   ****  *  *  *  *  ****  ****  *  *   ";
  18. 170  NORMAL 
  19. 180  PRINT : PRINT : PRINT : PRINT 
  20. 190  REM *MY LOGO
  21. 200  PRINT "THIS PROGRAM WAS DEVELOPED BY"
  22. 210  FOR BJ = 1 TO 3000: NEXT : GR : COLOR= 9
  23. 220  HLIN 5,13 AT 2: HLIN 5,13 AT 10: HLIN 5,13 AT 19: VLIN 3,9 AT 14: VLIN 11,18 AT 14: PLOT 16,19: VLIN 2,19 AT 4: VLIN 11,17 AT 14
  24. 230  HLIN 18,27 AT 10: VLIN 11,27 AT 23: PLOT 18,25: PLOT 19,26: HLIN 20,22 AT 27: PLOT 25,27
  25. 240  HLIN 29,37 AT 22: VLIN 23,38 AT 33: PLOT 35,38
  26. 250  FOR BJ = 1 TO 3000: NEXT : TEXT : HOME 
  27. 260  REM *START OF GAME - INSTRUCTIONS
  28. 270  PRINT "HIT ANY KEY TO CONTINUE": GET ANS$
  29. 280  HOME 
  30. 290  SPEED= 255
  31. 300  PRINT "DO YOU NEED INSTRUCTIONS?": GET F$
  32. 310  IF  LEFT$(F$,1) = "Y"  THEN  HOME : GOTO 340
  33. 320  IF  LEFT$(F$,1) < >"Y"  THEN 450
  34. 330  GOTO 300
  35. 340  PRINT  TAB( 14);"INSTRUCTIONS"
  36. 350  PRINT  TAB( 14);"------------"
  37. 360  PRINT 
  38. 370  PRINT "THE IDEA OF THIS GAME IS TO AVOID THE   CHASER . THIS IS ACCOMPLISHED BY KEEPINGYOUR SPACE VEHICLE (THE PURPLE ONE ON   THE RIGHT) AWAY FROM THE CHASER (THE    LIGHT BLUE ONE TO THE LEFT OF SCREEN) ."
  39. 380  PRINT : PRINT : PRINT 
  40. 390  PRINT "TO MOVE YOUR SHIP PRESS THE KEY AS SHOWN"
  41. 400  PRINT "         UP"
  42. 401  PRINT "         I"
  43. 402  PRINT "        (I)"
  44. 404  PRINT "         I"
  45. 405  PRINT "LEFT-(J)- -(K)-RIGHT"
  46. 415  PRINT "         I"
  47. 420  PRINT "        (M)"
  48. 425  PRINT "         I"
  49. 430  PRINT "       DOWN"
  50. 440  FOR A = 1 TO 1500: NEXT A: VTAB 23
  51. 450  PRINT "DO YOU WANT ME TO SHUT UP?";: GET Z$: IF  LEFT$(Z$,1) = "Y"  THEN QT = 1
  52. 460  REM *SET FUEL AND NEXT SCREEN
  53. 470  HOME : GR 
  54. 480  CLEAR 
  55. 490 FE = 5000
  56. 500 FE = FE +3500 -(100 *N):N = N +1
  57. 510  ON N GOSUB 520,520,520,520,520
  58. 520  GR 
  59. 530  COLOR= 15
  60. 540  HLIN 0,39 AT 0: HLIN 0,39 AT 39
  61. 550  HLIN 5,18 AT 5: HLIN 23,36 AT 5
  62. 560  HLIN 9,18 AT 9: HLIN 23,32 AT 9
  63. 570  HLIN 13,18 AT 18: HLIN 23,28 AT 18
  64. 580  HLIN 13,18 AT 23: HLIN 23,28 AT 23
  65. 590  HLIN 9,18 AT 32: HLIN 23,32 AT 32
  66. 600  HLIN 5,18 AT 36: HLIN 23,36 AT 36
  67. 610  VLIN 0,39 AT 0: VLIN 0,39 AT 39
  68. 620  VLIN 5,18 AT 5: VLIN 23,36 AT 5
  69. 630  VLIN 9,18 AT 9: VLIN 23,32 AT 9
  70. 640  HLIN 13,28 AT 13: HLIN 13,28 AT 28
  71. 650  VLIN 9,18 AT 32: VLIN 23,32 AT 32
  72. 660  VLIN 5,18 AT 36: VLIN 23,36 AT 36
  73. 670  PLOT 20,21: PLOT 20,20: PLOT 21,20: PLOT 21,21
  74. 680  COLOR= 12
  75. 690  PLOT 3,3: PLOT 6,3: PLOT 9,3: PLOT 12,3: PLOT 15,3: PLOT 18,3: PLOT 21,3: PLOT 24,3: PLOT 27,3: PLOT 30,3: PLOT 33,3: PLOT 36,3: PLOT 38,3
  76. 700  PLOT 3,6: PLOT 3,9: PLOT 3,12: PLOT 3,15: PLOT 3,18: PLOT 3,21: PLOT 3,24: PLOT 3,27: PLOT 3,30: PLOT 3,33: PLOT 3,36: PLOT 3,38
  77. 710  PLOT 3,38: PLOT 6,38: PLOT 9,38: PLOT 12,38: PLOT 15,38: PLOT 18,38: PLOT 21,38: PLOT 24,38: PLOT 27,38: PLOT 30,38: PLOT 33,38: PLOT 36,38: PLOT 38,38
  78. 720  PLOT 38,6: PLOT 38,9: PLOT 38,12: PLOT 38,15: PLOT 38,18: PLOT 38,21: PLOT 38,24: PLOT 38,27: PLOT 38,30: PLOT 38,33: PLOT 38,36
  79. 730  PLOT 7,7: PLOT 7,10: PLOT 7,13: PLOT 7,16: PLOT 7,25: PLOT 7,28: PLOT 7,31: PLOT 7,34
  80. 740  PLOT 20,3: PLOT 20,38
  81. 750  PLOT 11,11: PLOT 11,14: PLOT 11,17: PLOT 11,20: PLOT 11,21: PLOT 11,24: PLOT 11,27: PLOT 11,30: PLOT 11,34
  82. 760  PLOT 14,11: PLOT 14,16: PLOT 14,15: PLOT 14,20: PLOT 14,21: PLOT 14,25: PLOT 14,26: PLOT 14,30: PLOT 14,34
  83. 770  PLOT 17,7: PLOT 17,11: PLOT 17,15: PLOT 17,16: PLOT 17,20: PLOT 17,21: PLOT 17,25: PLOT 17,26: PLOT 17,30: PLOT 17,34
  84. 780  PLOT 20,5: PLOT 20,8: PLOT 20,11: PLOT 20,15: PLOT 20,16: PLOT 20,25: PLOT 20,26: PLOT 20,30: PLOT 20,34
  85. 790  PLOT 21,5: PLOT 21,8: PLOT 21,11: PLOT 21,15: PLOT 21,16: PLOT 21,25: PLOT 21,26: PLOT 21,30: PLOT 21,34
  86. 800  PLOT 24,7: PLOT 24,11: PLOT 24,15: PLOT 24,16: PLOT 24,20: PLOT 24,21: PLOT 24,25: PLOT 24,26: PLOT 24,30: PLOT 24,34
  87. 810  PLOT 27,7: PLOT 27,11: PLOT 27,15: PLOT 27,16: PLOT 27,20: PLOT 27,21: PLOT 27,25: PLOT 27,26: PLOT 27,30: PLOT 27,34
  88. 820  PLOT 30,7: PLOT 30,11: PLOT 30,15: PLOT 30,16: PLOT 30,20: PLOT 30,21: PLOT 30,25: PLOT 30,26: PLOT 30,30: PLOT 30,34
  89. 830  PLOT 34,7: PLOT 34,10: PLOT 34,13: PLOT 34,16: PLOT 34,16: PLOT 34,25: PLOT 34,28: PLOT 34,31: PLOT 34,34
  90. 840  PLOT 11,7: PLOT 14,7: PLOT 17,7
  91. 850  PLOT 6,20: PLOT 6,21: PLOT 8,20: PLOT 8,21: PLOT 33,20: PLOT 33,21: PLOT 35,20: PLOT 35,21
  92. 860  HTAB 10: INVERSE : PRINT "GET READY!!"
  93. 870  NORMAL 
  94. 880  REM *READ FROM TEXT FILE CURRENT HIGH SCORER'S NAME AND SCORE.
  95. 890 D$ =  CHR$(4): REM *CTRL-D
  96. 900  PRINT D$;"OPEN SPACE CHASER HIGH SCORE"
  97. 910  PRINT D$;"READ SPACE CHASER HIGH SCORE"
  98. 920  INPUT HS,HS$
  99. 930  PRINT D$;"CLOSE SPACE CHASER HIGH SCORE"
  100. 940  REM *MAIN PROGRAM
  101. 950  PRINT : PRINT : PRINT 
  102. 960 A = 2:B = 20:C = 37:D = 20
  103. 970  COLOR= 7: PLOT A,B
  104. 980  COLOR= 3: PLOT C,D
  105. 990  FOR T = 1 TO 20: NEXT T
  106. 1000  COLOR= 0
  107. 1010  PLOT C,D
  108. 1020  IF CO = 12  THEN DC = 12
  109. 1030  COLOR= DC: PLOT A,B
  110. 1040 DC = 0
  111. 1050 Q =  PEEK( -16384)
  112. 1060  IF Q >127  THEN  POKE  -16368,0
  113. 1070  IF Q >127  THEN Q$ =  CHR$(Q -128)
  114. 1080 FE = FE -5
  115. 1090  IF FE <0  THEN  PRINT "FUEL GONE!": GOTO 1380
  116. 1100  IF XX = 1500 *N  THEN 500
  117. 1110  VTAB 22: PRINT "SCORE= ";XX; TAB( 14);"FUEL= ";FE
  118. 1120  VTAB 23: INVERSE : FLASH : PRINT "HIGH SCORE= ";HS;" BY ";HS$
  119. 1125  NORMAL 
  120. 1130  IF Q$ = "I"  THEN D = D -1
  121. 1140  IF Q$ = "M"  THEN D = D +1
  122. 1150  IF Q$ = "J"  THEN C = C -1
  123. 1160  IF Q$ = "K"  THEN C = C +1
  124. 1170  IF Q$ < >"I"  AND Q$ < >"J"  AND Q$ < >"K"  AND Q$ < >"M"  THEN FE = FE +4
  125. 1180 CL =  SCRN( C,D)
  126. 1190  IF CL = 15  THEN  GOSUB 1490
  127. 1200  IF CL = 12  THEN XX = XX +10: VTAB 1: GOSUB 1780
  128. 1210  IF A <C  THEN FG = 1:A = A +1
  129. 1220  IF A >C  THEN FG = 2:A = A -1
  130. 1230 CR =  SCRN( A,B)
  131. 1240  IF CR = 15  THEN  GOSUB 1540
  132. 1250 FG = 0
  133. 1260  IF B <D  THEN FG = 3:B = B +1
  134. 1270  IF B >D  THEN FG = 4:B = B -1
  135. 1280 CO =  SCRN( A,B)
  136. 1290  IF CO = 15  THEN  GOSUB 1540
  137. 1300  IF A = C  AND B = D  THEN 1380
  138. 1310  GOTO 970
  139. 1320  IF C > AT HENFG = 1:A = A +1
  140. 1330  IF C < AT HENFG = 2:A = A -1
  141. 1340  IF D >B  THEN FG = 3:B = B +1
  142. 1350  IF D <B  THEN FG = 4:B = B -1
  143. 1360  IF XX = 1500 *N  THEN  GOTO 500
  144. 1370  IF A = C  AND B = D  THEN 1380
  145. 1380  TEXT : HOME 
  146. 1390  HTAB 4: VTAB 3: PRINT "YOUR FINAL SCORE WAS -=+* ";XX;" *+=-"
  147. 1400  VTAB 7: PRINT "YOU HAD -=+* ";FE;" *+=-";" FUEL UNITS LEFT ."
  148. 1410  VTAB 24: POKE 34,23: PRINT "PRESS THE SPACE BAR TO CONTINUE .";: GET AN$: IF AN$ = " "  THEN 1430
  149. 1420  PRINT : GOTO 1410
  150. 1430  TEXT : HOME : NORMAL : SPEED= 255
  151. 1440  IF XX >HS  THEN  GOTO 1620
  152. 1450  PRINT "DO YOU WANT ANOTHER TRY ? ";: GET B$
  153. 1460  IF  LEFT$(B$,1) = "N"  THEN  END 
  154. 1470  IF  LEFT$(B$,1) = "Y"  THEN  HOME : GOTO 450
  155. 1480  GOTO 1430
  156. 1490  IF Q$ = "I"  THEN D = D +1
  157. 1500  IF Q$ = "M"  THEN D = D -1
  158. 1510  IF Q$ = "J"  THEN C = C +1
  159. 1520  IF Q$ = "K"  THEN C = C -1
  160. 1530  RETURN 
  161. 1540  IF FG = 1  THEN A = A -1
  162. 1550  IF FG = 2  THEN A = A +1
  163. 1560  IF FG = 3  THEN B = B -1
  164. 1570  IF FG = 4  THEN B = B +1
  165. 1580 FG = 0
  166. 1590  RETURN 
  167. 1600  REM *STOP CHASER PICKING UP DOTS
  168. 1610  GOTO 1050
  169. 1620 D$ =  CHR$(4): REM *CTRL-D
  170. 1630  INPUT "YOUR NAME , CHAMPION !!";CHAMP$
  171. 1640  PRINT D$;"OPEN SPACE CHASER HIGH SCORE"
  172. 1650  PRINT D$;"WRITE SPACE CHASER HIGH SCORE"
  173. 1660  PRINT XX
  174. 1670  PRINT CHAMP$
  175. 1680  PRINT D$;"CLOSE SPACE CHASER HIGH SCORE"
  176. 1690  VTAB 22: PRINT "YOU HAVE DONE WELL , CHAMP ."
  177. 1700  VTAB 23: PRINT "HERE IS YOUR MEDAL -"
  178. 1710  PRINT "ADMIRE IT FOR A WHILE ..."
  179. 1720  GR 
  180. 1730  COLOR= 9: VLIN 10,19 AT 16: VLIN 10,19 AT 17: VLIN 10,19 AT 24: VLIN 10,19 AT 25: COLOR= 12: VLIN 10,19 AT 18: VLIN 10,19 AT 19: VLIN 10,19 AT 22: VLIN 10,19 AT 23
  181. 1740  COLOR= 13: VLIN 10,29 AT 20: VLIN 10,29 AT 21: HLIN 18,23 AT 22: HLIN 18,23 AT 23: HLIN 18,23 AT 26: HLIN 18,23 AT 27: HLIN 16,25 AT 24: HLIN 16,25 AT 25
  182. 1750  COLOR= 9: PLOT 20,24: PLOT 21,24: PLOT 20,25: PLOT 21,25
  183. 1760  FOR BJ = 1 TO 3000: NEXT BJ
  184. 1770  GOTO 1450
  185. 1780  IF QT = 0  THEN  RETURN 
  186. 1790  FOR BJ = 1 TO 4:X =  PEEK( -16336) - PEEK( -16336) - PEEK( -16336) - PEEK( -16336): NEXT : RETURN